home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dsielink / frmdemo2.fr_ (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-16  |  7.5 KB  |  234 lines
  1. VERSION 5.00
  2. Object = "{03B95A9D-DBDD-11D2-87A3-97F32F5E191C}#1.1#0"; "DSIELink.ocx"
  3. Begin VB.Form FrmDemo2 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Demo of the URL link control.."
  6.    ClientHeight    =   3735
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7170
  10.    Icon            =   "FrmDemo2.frx":0000
  11.    LinkTopic       =   "FrmDemo2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3735
  15.    ScaleWidth      =   7170
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frames 
  18.       Caption         =   "Browser Synchronisation..."
  19.       Height          =   2295
  20.       Index           =   0
  21.       Left            =   120
  22.       TabIndex        =   4
  23.       Top             =   1320
  24.       Width           =   3735
  25.       Begin DSIELink.IELink Links 
  26.          Height          =   225
  27.          Index           =   0
  28.          Left            =   240
  29.          TabIndex        =   6
  30.          Top             =   1800
  31.          Width           =   1185
  32.          _ExtentX        =   2090
  33.          _ExtentY        =   397
  34.          Caption         =   "AutoDetect Link"
  35.          Hover           =   0   'False
  36.          IESync          =   3
  37.       End
  38.       Begin DSIELink.IELink Links 
  39.          Height          =   225
  40.          Index           =   1
  41.          Left            =   1680
  42.          TabIndex        =   7
  43.          Top             =   1680
  44.          Width           =   1530
  45.          _ExtentX        =   2699
  46.          _ExtentY        =   397
  47.          Caption         =   "Internet Explorer Link"
  48.          Hover           =   0   'False
  49.          IESync          =   1
  50.       End
  51.       Begin DSIELink.IELink Links 
  52.          Height          =   225
  53.          Index           =   2
  54.          Left            =   1680
  55.          TabIndex        =   8
  56.          Top             =   1920
  57.          Width           =   1800
  58.          _ExtentX        =   3175
  59.          _ExtentY        =   397
  60.          Caption         =   "Netscape Navigator Link"
  61.          Hover           =   0   'False
  62.          IESync          =   2
  63.       End
  64.       Begin VB.Label LblLabels 
  65.          AutoSize        =   -1  'True
  66.          Caption         =   $"FrmDemo2.frx":0442
  67.          Height          =   1455
  68.          Index           =   2
  69.          Left            =   120
  70.          TabIndex        =   9
  71.          Top             =   240
  72.          Width           =   3495
  73.          WordWrap        =   -1  'True
  74.       End
  75.    End
  76.    Begin VB.Frame Frames 
  77.       Caption         =   "Hover Colours..."
  78.       Height          =   2295
  79.       Index           =   2
  80.       Left            =   3960
  81.       TabIndex        =   5
  82.       Top             =   1320
  83.       Width           =   3135
  84.       Begin DSIELink.IELink Links 
  85.          Height          =   225
  86.          Index           =   3
  87.          Left            =   120
  88.          TabIndex        =   11
  89.          Top             =   1200
  90.          Width           =   690
  91.          _ExtentX        =   1217
  92.          _ExtentY        =   397
  93.          Caption         =   "Test Link"
  94.          Style           =   0
  95.       End
  96.       Begin DSIELink.IELink Links 
  97.          Height          =   225
  98.          Index           =   4
  99.          Left            =   120
  100.          TabIndex        =   12
  101.          Top             =   1560
  102.          Width           =   690
  103.          _ExtentX        =   1217
  104.          _ExtentY        =   397
  105.          Caption         =   "Test Link"
  106.          Style           =   0
  107.          HoverColor      =   65280
  108.       End
  109.       Begin DSIELink.IELink Links 
  110.          Height          =   225
  111.          Index           =   5
  112.          Left            =   120
  113.          TabIndex        =   13
  114.          Top             =   1920
  115.          Width           =   690
  116.          _ExtentX        =   1217
  117.          _ExtentY        =   397
  118.          Caption         =   "Test Link"
  119.          Style           =   0
  120.          Hover           =   0   'False
  121.       End
  122.       Begin VB.Label LblLabels 
  123.          AutoSize        =   -1  'True
  124.          Caption         =   "This has no hover colour"
  125.          Height          =   195
  126.          Index           =   6
  127.          Left            =   840
  128.          TabIndex        =   16
  129.          Top             =   1920
  130.          Width           =   1800
  131.          WordWrap        =   -1  'True
  132.       End
  133.       Begin VB.Label LblLabels 
  134.          AutoSize        =   -1  'True
  135.          Caption         =   "This has a green hover colour"
  136.          Height          =   255
  137.          Index           =   5
  138.          Left            =   840
  139.          TabIndex        =   15
  140.          Top             =   1560
  141.          Width           =   2160
  142.          WordWrap        =   -1  'True
  143.       End
  144.       Begin VB.Label LblLabels 
  145.          AutoSize        =   -1  'True
  146.          Caption         =   "This has a red hover colour"
  147.          Height          =   195
  148.          Index           =   4
  149.          Left            =   840
  150.          TabIndex        =   14
  151.          Top             =   1200
  152.          Width           =   2040
  153.          WordWrap        =   -1  'True
  154.       End
  155.       Begin VB.Label LblLabels 
  156.          AutoSize        =   -1  'True
  157.          Caption         =   "The control supports the use of IE4 ""Hover"" Colour Style. Point at the links below to test it"
  158.          Height          =   660
  159.          Index           =   3
  160.          Left            =   120
  161.          TabIndex        =   10
  162.          Top             =   240
  163.          Width           =   2880
  164.          WordWrap        =   -1  'True
  165.       End
  166.    End
  167.    Begin VB.CommandButton BtnDemo 
  168.       Caption         =   "&Demo Form 1"
  169.       Height          =   375
  170.       Index           =   0
  171.       Left            =   4800
  172.       TabIndex        =   1
  173.       Top             =   120
  174.       Width           =   1095
  175.    End
  176.    Begin VB.CommandButton BtnDemo 
  177.       Caption         =   "Demo &Form 3"
  178.       Height          =   375
  179.       Index           =   1
  180.       Left            =   6000
  181.       TabIndex        =   0
  182.       Top             =   120
  183.       Width           =   1095
  184.    End
  185.    Begin VB.Image ImgLogo 
  186.       Height          =   480
  187.       Left            =   120
  188.       Picture         =   "FrmDemo2.frx":058C
  189.       Top             =   120
  190.       Width           =   480
  191.    End
  192.    Begin VB.Label LblLabels 
  193.       AutoSize        =   -1  'True
  194.       Caption         =   $"FrmDemo2.frx":0896
  195.       Height          =   780
  196.       Index           =   0
  197.       Left            =   720
  198.       TabIndex        =   3
  199.       Top             =   120
  200.       Width           =   3690
  201.       WordWrap        =   -1  'True
  202.    End
  203.    Begin VB.Label LblLabels 
  204.       AutoSize        =   -1  'True
  205.       Caption         =   "This form shows the various advanced features of this control."
  206.       Height          =   195
  207.       Index           =   1
  208.       Left            =   120
  209.       TabIndex        =   2
  210.       Top             =   1080
  211.       Width           =   4410
  212.       WordWrap        =   -1  'True
  213.    End
  214. Attribute VB_Name = "FrmDemo2"
  215. Attribute VB_GlobalNameSpace = False
  216. Attribute VB_Creatable = False
  217. Attribute VB_PredeclaredId = True
  218. Attribute VB_Exposed = False
  219. Option Explicit
  220. Private Sub BtnDemo_Click(Index As Integer)
  221.     Me.Hide
  222.     If Index = 0 Then
  223.         FrmDemo1.Show
  224.     Else
  225.         FrmDemo3.Show
  226.     End If
  227. End Sub
  228. Private Sub Form_Unload(Cancel As Integer)
  229.     End
  230. End Sub
  231. Private Sub Links_LaunchURL(Index As Integer)
  232.     MsgBox "You clicked the URL!"
  233. End Sub
  234.